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FIG. 3 



Figure 8 - Old drawing (498) is 
incorrect . 
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FIG. 10 



. High Level Seal Routine 
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Pre-Heat Seal 
Bar 



FirstBagFlag= FALSE 
FirstBagCount ■ 0 



CALL. /Xtree- puis* 



FirstBagFlag = TRUE 
FirstBagCount - 0 



dc!ay_tinier = PREHEAT_COOL_DELAY 



Move the seal bar 
down, activate seal 
wire, cool, move 
seal bar up 
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. Cycle Seal Bar Routine 



evele seal bar ^ ^ 



Move sea), bar down to seal position 
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activate seal wire 




Heater Pulse Routine 
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start heater T>ulse 





> 


mils = seal switch value 
MaxTemperature = seal [mils] .MaxSealTemp 
/7///SealTiine = seal [mils]. MaxHeatTime 
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FirstBagFlag = False 



Bounds checking of 
heatti meoffset and 
adjusting hcattimc- 
continued. 



Turn on the heater 
for the desired 
length of time. 




hcat__pulse_tiraer - hcat_time 
HeatoPulse - On 
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HeaterPulse - Off 
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( End y ^/?3Q 



Subroutine for calculating hcat time 



calc_heat__timc(thickncss,firstbagflag) 7,^00 




hcat_tirac - seal [mils] .MinHeatTi me- 

(((ScalTemp - seal [mil s].MinSealTemp)* 

(seal[mils]J4inHeatTime-seal[mils].MaxHeatTimc)y 

(seal [mils].MaxSealTemp-seal [milsj.MinSealTemp)) 



X 



heat_timc = seal [mils]. FBM in HeatTimc- 

(((SeaITemp-Seal[mils].MinSealTemp)* 

(seal[mils].FBMinHeatTime-seal[mils].FBMaxHeatTime))/ 
(seal[mils].MaxSealTemp-sealfmils].MinSealTemp)) 



Return heat time 



